home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / shared.cst / 00030_Script_TEXT Funct Parent Script < prev    next >
Text File  |  1997-07-24  |  3KB  |  76 lines
  1. --o Funct: TEXT
  2.  
  3. property pCastNum, pPictSprite, pStartSprite, pQTsprite, pSnd, pAreaHotSpotID
  4. property pRelatedHSid
  5.  
  6. global gModeManager, gInterfaceMgrObj, gAreaManagerObj, gUtilityObj, gActiveInventor, gCompileMode, whatCastindex
  7.  
  8. ------------------------------------------------------------------------------------------------------------------ò
  9. on birth me
  10.   
  11.   return ( me )
  12.   
  13. end birth
  14. ------------------------------------------------------------------------------------------------------------------ò
  15. on mInit me, aLineFromDataBase, aPICTsprite
  16.   
  17.   set pPictSprite = aPICTsprite
  18.   set pRelatedHSid = item 1 of aLineFromDataBase
  19.   set SndString = item 4 of aLineFromDataBase
  20.   
  21.   if gCompileMode then
  22.     if not voidp( SndString ) and  (SndString <> empty) then
  23.       set SndNum = the number of cast SndString
  24.       set SndIndex = value( "#" & SndString )
  25.       addProp(whatCastindex, SndIndex, SndNum)
  26.     end if
  27.   else set whatCastindex = getprop( gMstrPictIndex,gActiveInventor)
  28.   
  29.   if (SndString <> empty) then 
  30.     set SndIndex = value( "#" & SndString )
  31.     set pSnd = getprop( whatCastindex , SndIndex)
  32.   else set pSnd = 0
  33.   
  34.   
  35. end mInit
  36. ------------------------------------------------------------------------------------------------------------------ò
  37. on mDiscloseFunctionalityType me
  38.   
  39.   return( #TEXT )
  40.   
  41. end mDiscloseFunctionalityType
  42. ------------------------------------------------------------------------------------------------------------------ò
  43. on mActivate me
  44.   
  45.   if (pSnd <> 0) then 
  46.     sound stop 1
  47.     updatestage
  48.     puppetsound 2, psnd
  49.     updatestage
  50.   end if
  51.   mDisplayClickText(gInterfaceMgrObj, pRelatedHSid) 
  52.   mUpdateReturnFrame(gUtilityObj,label("QTVR"))
  53.   
  54. end mActivate
  55. ------------------------------------------------------------------------------------------------------------------ò
  56. on mClose me
  57.   
  58.   
  59. end mClose
  60. ------------------------------------------------------------------------------------------------------------------ò
  61. on mClickEvent me
  62.   
  63.   
  64.   
  65. end mClickEvent
  66. ------------------------------------------------------------------------------------------------------------------ò
  67. on mDisclose me
  68.   
  69.   --put "TEXT"
  70.   
  71. end 
  72. ------------------------------------------------------------------------------------------------------------------ò
  73. on mSetAreaHotSpotID me, aAreaHotSpotID
  74.   set pAreaHotSpotID = aAreaHotSpotID
  75. end mSetAreaHotSpotID
  76. ------------------------------------------------------------------------------------------------------------------ò